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Problem 

The below module can be used to recover lost data or to re-sort data which 
is out of order. This is usually caused by system failure or abnormal exit 
from the Mailing List program. 


Solution 

1. Enter the following program in BASIC. 

4999 'RECOVERY 

5000 CLS:N»0:TN=1:F=0 

5005 PRINTTAB(20)’'** FILE RECOVERY **" 

5010 FORQ-0TOCP;V(Q,0)=0:V(Q,1)=0:NEXT 
5015 PRINT@320, "** RECORD NUMBER :"N 
50 20 N=N+1:J=N:GOSUB1840:GOSUB1900:GOSUB1910 
5030 IFE1$<CHR$(32)ORE0$>CHR$(127)THEN5100 
5040 NS=1:GOSUB3210:TN-TN+1:EL$=E1$ 

5060 IFN<CPTHEN5015 
5100 GOSUB1790 

5110 PRINT:PRINT"> RECOVERY COMPLETE - PRESS <ENTER> 
5120 GOSUB1460:GOTO210 

2. SAVE the module by typing SAVE "RECOVER/ASC",A 

3. Type: L0AD"MLS" and press ENTER 

4. Type: MERGE"RECOVER/ASC" and press ENTER 

5. Type: RUN and press ENTER 
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